home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / bestofsd.lha / Xor4.AMOS / Xor4.amosSourceCode
AMOS Source Code  |  1992-10-20  |  903b  |  39 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10.  
  11. Screen Open 1,320,256,2,Lowres : Flash Off : Curs Off 
  12. Circle 16,16,15 : Paint 16,16
  13.  
  14. Ink 0
  15. Circle 11,12,2
  16. Paint 11,12
  17. Circle 21,12,2
  18. Paint 21,12
  19. Circle 16,23,4
  20. Paint 16,23
  21.  
  22. Screen Open 0,320,256,2,Lowres : Flash Off : Curs Off : Hide 
  23. Double Buffer : Autoback 0
  24. Palette ,$FF0
  25.  
  26. Do 
  27.  
  28.    For C=0 To 80 Step 8
  29.       X=144+Sin(C*8-B*7)*(C+B/2)/2
  30.       Y=110+Cos(C*8+B*7)*(C+B/2)/2
  31.       Screen Copy 1,0,0,32,32 To 0,X,Y,%1100000
  32.    Next 
  33.    
  34.    Inc B
  35.    Screen Swap 
  36.    Wait Vbl 
  37.    Cls 
  38.  
  39. Loop